<%
With Response
.write ""
Dim Connect
'Dim data
Dim visit
'Dim all
'Dim i
Dim max
'Dim step
'Dim D
Dim vis
Dim allvis
Set connect= Server.CreateObject("ADODB.Connection")
connect.Mode = adModeReadWrite
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb/onegaonline.mdb")
SQL = "SELECT дата, визит FROM visit Order By код ASC"
Set R = Server.CreateObject("ADODB.Recordset")
R.Open SQL, connect, adOpenKeyset
all = abs(R.RecordCount)
Dim allvisit
allvisit = Array()
ReDim allvisit(all)
Dim dallvisit
dallvisit = Array()
ReDim dallvisit(all)
i = 1
R.MoveLast
max = 0
do while not R.BOF
data = R("дата")
visit = int(R("визит"))
allvisit(i) = visit
dallvisit(i) = data
if visit > max then max = visit
i = i + 1
R.MovePrevious
loop
all = i-1
R.Close
set R = nothing
connect.Close
set connect = nothing
'step =(700 / max)
.write ""
for i = 1 to all
D = Trim(dallvisit(i))
D = left(D,2) + "." + mid(D,4,2)
vis = allvisit(i)
allvis = allvis + vis
.write "| " & D & " |  " & vis &" | "
next
.write "
"
'.Write "всего визитов на сервер www.Onegaonline.ru за последние 365 дней - " & allvis & "
|
"
.write " |